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Jeu de pistes 


A l’aide de l’énigme classique du « rat dans le labyrinthe », 
voyons quelques principes fondamentaux des techniques 
d'intelligence artificielle permettant de résoudre des problèmes. 


Imaginez trois rats abandonnés au milieu d’un 
labyrinthe dans lequel de la nourriture a été dépo- 
sée : un des rats erre quelques minutes et s’effon- 
dre, endormi (l’expérimentateur, cruel, avait 
mélangé de l’alcoo!l à l’eau que l’animal devait 
boire). 

Le deuxième est plus méthodique (!) : il suit 
de sa patte gauche le mur, et ne prend ainsi que 
des virages à gauche, revenant sur ses pas lors- 
qu’il rencontre un cul-de-sac. Il finit par arriver 
à destination, mais trop tard : le troisième rat a 
déjà tout mangé. C’est que le troisième rat a de 
l’odorat… 

Ce dernier s’est souvent arrêté dans sa course 
pour renifler l’air, et a choisi le chemin qu’il esti- 
mait le plus rapproché de l’odeur de nourriture. 
Il faut néanmoins convenir que de se fier à l’odo- 
rat nous semble l’attitude la plus intelligente pour 
un rat. 

La recherche d’une solution à un problème 
occupe une place essentielle en intelligence arti- 
ficielle. Qu'il s’agisse d’un trésor que vous recher- 
chez en scaphandre par 60 m de fond dans les 


mers des Caraïbes ou de jeux d’énigmes, vous 
cherchez quelque chose. La résolution d’un pro- 
blème est ainsi identifiée à la recherche de ses 
solutions. 

Ce rapprochement s’est révélé très fructueux. 
En effet, de nombreux problèmes différents peu- 
vent être ainsi résolus. Nos trois rats illustrent 
trois stratégies bien distinctes : 

e Stratégie aléatoire (« la démarche du matelot 
ivre »). 

e Recherche exhaustive (énumération 
matique). 

e Approche heuristique (exploration guidée). 
La troisième est la plus intelligente, du fait qu’elle 
demande moins d’efforts pour parvenir au but. 
Mais toutes les méthodes heuristiques supposent 
un moyen de renseignement, de connaissance. Il 
s’agit pour le rat d’apprécier le chemin le meil- 
leur qui le rapproche du but (dans le cas du troi- 
sième rat, par l’odorat). Sans connaissances, pas 
d'intelligence : il ne reste que l’énumération systé- 
matique. Trouver son chemin dans un labyrin- 
the est un problème-type de recherche. II faut 


systé- 


Courses de rats 

Ce dessin montre les 
trois cheminements 
possibles dans le 
labyrinthe : stratégie 
systématique et stratégie 
heuristique. Dans le cas 
présent, l'approche 
heuristique est la plus 
rapide, même s'il est 
parfaitement possible de 
dessiner un labyrinthe où 
ce ne serait pas le cas. 
Dans la pratique, c’est la 
combinaison des 
méthodes heuristique 

et exhaustive qui se 
révèle la plus efficace. 
(CI. Steve Cross.) 


Heuristique 


Systématique 


Aléatoire 


LE 
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Questions de recherche 


La plupart des 
recherches en 
intelligence artificielle 
font intervenir des 
arborescences 
représentant la 
disposition des 
labyrinthes à parcourir. 
L'arbre donné ici prend 
racine à l'entrée du 
labyrinthe. Il s'épanouit 
avec la multiplication des 
embranchements 
possibles. Remarquez 
que les déplacements en 
diagonale ne sont pas 
permis. L'organigramme 
représente l'algorithme 
de base de 
l'arborescence du 
labyrinthe. 

(CI. Kevin Jones.) 
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Cheminement 


Un labyrinthe 
hgrcère 


Arbre de recherches 


néanmoins savoir que tous les problèmes ne sont 
pas d’ordre spatial. L’intégration d’une expres- 
sion symbolique mathématique peut être égale- 
ment traitée par la même méthodologie. Il existe 
deux critères d’appréciation d’une méthode de 
recherche : 

e Le temps mis pour trouver le cheminement. 
e L'efficacité de ce parcours logique (son éco- 
nomie). 

De manière idéale, nous recherchons la 
méthode qui aboutit à la solution optimale en un 
minimum de temps. En pratique, cependant, 
nous devons souvent adopter un compromis en 
prenant soit une méthode rapide à solution 
non optimale, soit une approche lente pour un 
meilleur résultat. 

La plupart des stratégies de recherche en intel- 
ligence artificielle sont fondées sur un plan 
commun, véritable base modulable. Cela permet 
de pondérer librement tel ou tel critère d’exécu- 
tion. L’algorithme général des cheminements 
possibles regroupe une famille d’approches dif- 
férentes. On obtient un déroulement particulier 
en remplissant'le pavé central ou en indiquant le 
prochain carrefour vers lequel se diriger (le pro- 
chain « nœud » ou embranchement de directions 
possibles, ou choix). Les nœuds logiques peuvent 
ainsi avoir deux statuts : ouvert ou fermé. Un car- 
refour ouvert est à explorer, un carrefour fermé 
l’a déjà été d’une manière ou d’une autre. Les 
nœuds ouverts figurent sur une sorte de liste 
d’attente; la clef de l’efficacité de la méthode de 
recherche tenant à l’ordre dans lequel les nœuds 
sont traités, depuis la source jusqu’à la desti- 
nation. 

La recherche se fait en développant l’arbores- 
cence des décisions possibles. L’arbre part de la 
source et se ramifie avec la multiplication des 
choix à chaque étape. Le labyrinthe très simple 
du « rat-robot » est représenté par une grille de 
quatre sur quatre. Le rat y figure dans la case 
supérieure gauche, la nourriture étant en bas à 
droite. A chaque case, le rat a quatre choix (nord, 
est, sud et ouest). Certains peuvent néanmoins 
être interdits. Si nous ouvrons dès le début toutes 
les portes, nous obtenons la structure arbores- 
cente de la représentation des recherches. 

De sa position initiale en (4,1), le rat ne peut 
aller qu’en (4,2) et (3,1). En (4,2), il peut aller 
à l’est ou à l’ouest. De (3,1), il peut se déplacer 
au nord ou au sud. Si le rat va à l’est et ensuite 
à l’ouest (ou bien au sud et ensuite au nord), il 
revient à sa position de départ. Ce n’est pas un 
résultat bien brillant, mais il lui permet d’appren- 
dre que ce genre de carré est susceptible de se 
reproduire en différents points du labyrinthe. Ces 
carrés indiquent en outre les divers chemins 
d’accès. 

Une des méthodes systématiques d’exploration 
est horizontale. Chaque carrefour est exploré par 
ordre de proximité, depuis la racine de l’arbre, 
le début du labyrinthe. Ainsi, tout déplacement 
de N mouvements sera essayé avant ceux de N+1. 
Il s’agit de trouver le plus court chemin, et 
pourvu que chaque mouvement soit de longueur 
égale aux autres, c’est la méthode de moindre 


coût. Cela dit, le but sera long à atteindre. Au 
fur et à mesure que l’on s’élève dans l’arbre, les 
possibilités à explorer augmentent, et le temps 
d’exploration s’accroît exponentiellement. 
L'amélioration de cette méthode horizontale 
suppose un moyen de renseignement sur la proxi- 
mité du but. Nous avons donc besoin d’une 
approche heuristique. Prenons l’exemple sui- 
vant : à Manhattan, à New York, toutes les rues 
et avenues se croisent, disons, à angle droit. Le 
sachant, on peut apprécier le nombre de « blocs » 
de maisons à franchir par une démarche nord ou 
sud, et est ou ouest. Un rat intelligent peut ainsi 
apprécier la distance qui le sépare de la cible. 
En sachant à quel moment on s’approche du 
but, on peut accélérer grandement les recherches. 
Le rat du début suivait la stratégie « au plus 


Programme de recherches 
dans le labyrinthe sur C64 


10DD REM 00m aan de de 
1018 REM ww» listase 2.1 : . 
1028 REM ++ Prosramme de Recherches Labyrinthe + 
LOS REM  e ee e e  e  e  e e 
1048 FOR I=1 TO 25: DWS=DN#+CHRS(17)2NEXT I 

1059 MH=17: Mu=25: REM Larseur et Profondeur du Labyrinthe 
1060 SI=256 : REM limites de l'arbre 

1078 MA=1 : RR=2: FO=3: DN=4: BL=S 

1980 Wi=1 : REM limites de l'arbre 

1090 H2=2 : REM larseur pour HD 

1100 DIM MCMH+1:MJ+1) : REM le labyrinthe 

1119 DIM C#(S) : REM caractères labyrinthe 

1120 DIM PCSI): SCSI), NCSID, CSL) 

1130 REM PChemin, s=étaves, N=Noeuds, Heuristique-distance 
1148 

1199 REM — Rat dans labyrinthe : 

1160 GOSUB 1368 : REM faire le labyrinthe 

1179 NC=0 : REM nombre de noeuds essayés 

1180 K=@ : REM compteur 

1190 GOSUB 1660 : REM supprimer tous les chemins 
1208 N(1)=2*MW+2 : REM ler noeud ouvert 

1218 S(1)=@: HC1)=FR-1 + (FC-1) 

1220 P(1)=0: REM sans racine 

1230 REM —— Boule principale : 

1240 REM www boucie principale ss 

1258 GOSUB 1770 : REM noeud suivant 

1268 NC=NC+1 

1270 P=x1Q=Y : GOSUB 

1280 GOSUB 1888 : REM suivants 

1290 IF (FR<ISR OR FC<?SC) AND NC<308 THEN 1240 
1108 P=X:0=Y:GOSUR 

1310 IF FR=6R AND FC=SC THEN GOSUB 2290 : REM 
retracer les étapes 

1320 1F NC>300 THEN PRINT "raté" 

1330 PRINT NC.“ noeuds essayés 

1348 END 

1350 : 

1368 REM -— routine de création de labyrinthe : 
1370 FOR P=i TO MH+1i 

1380 FOR R=1 TO Mu+1 

1390 IF RND(1) < @28 THEN MP, R)=4A ELSE MP, R)= 
BL 

1400 IF P=3 OR R=3 THEN MCP, R)=BL 

1410 IF P=1 OR R=1 THEN MCP, R)=HA 

1420 1F P>MH OR R)MW THEN MP, R)=4A 

1438 NEXT: NEXT 

1448 FRe2+INT(RND(1)#(MH-1)2: REM avancement horizontal 
1458 FCm4+INT(RND(1)MW-3): REM avancement vertical 
1468 MCFR, FC) =FO 

1478 MC2,2)=RR : REM rat-robot 

1480 CSCBL)=" * 

C# CHA) =CHRS (102) 

1500 CSCDN)=" * 

1510 CSCRR)="R« 

1520 CS(FOD=" 9" 

1530 GOSUB 1560 : REM affichez-ie 

1548 RETURN 

1558 : 

1560 REM -— routine d'affichage du labyrinthe 
PRINT CHR$#(147) 

1580 FOR R=1 TO MH+1 

1590 FOR C=1 TO mu+1 

1600 P=X:0=Y : GOSUB 

1610 NEXT 

1620 PRINT 

1838 NEXT 

1648 RETURN 

1650 : 

1669 REM —— routine d'effacase de l'arbre : 

1679 DD=9999 : REM fin 

1680 FOR G=1 TO SI 


prêt ». C’est la stratégie du grimpeur qui se guide 
sur le haut d’une colline. En cas de brouillard, 
en effet, on se repère en grimpant sans cesse. 
C’est une méthode plus rapide, mais elle ne va 
pas nécessairement par le plus court chemin. 

Une meilleure stratégie combine les deux 
approches. Il s’agit de l’algorithme dit « A* », 
qui suit la formule suivante : DH + DP (Dis- 
tance Heuristique + Distance Parcourue). Plus 
l’estimation de DH est fine, plus la recherche est 
efficace. Lorsque DH n’est pas précise, il convient 
de le sous-estimer. 

Dans notre exemple de programme, nous uti- 
lisons un seul canevas pour les trois méthodes. 

Méthode horizontale — plus petit DP. 

Le grimpeur — plus petit DH. 

Algorithme A* — plus petit DH + DP. 


1690 P(Q)=@ 

1708 S(Q)=DD 

1718 N(G)=0 

1720 H(Q)=DD 

173@ NEXT 

1748 NN=2 : REM Prochain noeud disponible 
1750 RETURN 

1768 : 

1770 REM —— Passer au meilleur noeud 5: 
1780 S=1: BN=DD 

1790 FOR 1=1 TO SI 

1808 V=SC1)441 + ABSCHCI)) 442 

1810 IF V<BN AND HCI)) =@ THEN S=1: BNeV 
1820 NEXT 

1830 IF S=1 THEN P=X:Q=Y:GOSUB 

1849 SR=INT (N(S) /NW) 

1858 SC=N(S)-MW4SR 

1860 RETURN 

1870 : 

1880 REM -- routine de création des POINtS nOeUdAUX Suivants 
1890 IF H(S)=@ THEN RETURN : REM fait 
1900 REM —— Nord 

1919 Y=SR-1 : X=SC 

1920 IF Y>1 THEN GOSUB 2090 

1930 REM -- Est : 

1348 Y=SR : X=SC+1 

1350 IF X<=MW THEN GOSUB 20908 

1960 REM -- Sud 

1970 Y=SR+1 : X=SC 

1980 IF Y<=MH THEN GOSUB2098 

1990 REM —— Ouest : 

2008 Y=SR : X=6C-1 

2010 1F X)1 THEN GOSUB 20908 

2020 REM —— fermer aussi le noeud S : 
2030 H(S) = -H(S) 

2040 IF H(S)»>@ THEN PRINT “Usn!* 

2058 P=Xx:Q=Y:GOSUB 

2060 MCSR, SC)=DN 

2070 REM effacer les positions à l'écran 
2080 : 

2090 REM -— Routine d'ouverture de 1 noeud 
2100 IF MCY:X)=DN THEN RETURN 

2118 IF MCY=X)=WA THEN RETURN 

2120 REM -— Trouver d'abord une position libre + 
2138 NX=0 

2140 REM + boucle Trouver Position 
2150 IF SCNN)<>DD THEN NX=NX+15 NN=NN+1 
2160 IF NN>SI THEN NN=1 

2170 1F NX>SI THEN PRINT “Piein ! “4 
2189 IFS(NN)<>DD THEN 2148 

2190 REM -— L'ouvrir maintenant : STOP 
2200 XY=X + Ya 

2218 NCNN)=XY 

2228 PCNN)=S 

2230 SCNN)=S(S)+1 

2240 HCNN)=ABSCY-FR) + ABSCX-FC) 

2250 P=X:0=Y:G0SUB 

2260 REM l'affiche à l'écran 

2270 RETURN 

2286 : 

2290 REM -- routine retraçant le cheminement 5 
2300 ST=-S(8) 

2318 FOR Q=1 TO 10008:NEXT QG:G0SUB1560 
2320 P=X1Q=Y:GO0SUB 

2330 REM «+ AFFICHER CHEMIN 

2348 S=P(S) : REM noeud apparenté 

2350 XY=N(S) : REM coordonnées 

2360 Y=INTCXY/MW) 

2370 X=XV-Vemu 

2388 MCY:X)=RR : REM traces du rat ! 
2390 P=x1:0Q=Y:G0SUB 

2488 IF 5)@ THEN 2530 

2410 P=X :Q=Y: GOSUB 

2420 P=x:Q=Y:GOSUB 

2438 PRINT NCi" fermeture des noeuds " 
2449 RETURN 


Lignes pour labyrinthe 

Le labyrinthe est 
représenté sous la forme 
d'un tableau à deux 
dimensions Ml, et les 
structures de données 
pour l’arbre de recherche 
figurent aux tableaux PI), 
Si, Ni! et Hi. Le programme 
comprend les facteurs 

« coût-présent » et « coût- 
estimé ». Ils peuvent être 
modifiés en changeant 
les valeurs Wi et W2 

aux lignes 1080 et 1090. 
Le programme est listé 
pour suivre la stratégie 
du grimpeur, mais vous 
pouvez le modifier. 

La méthode heuristique 
utilisée est fondée sur le 
principe dit « des 
distances à Manhattan », 
très précis ici. De la 
sorte, un affinement dans 
le sens de la méthode 
heuristique par W2>W1 
accélère les recherches. 


Variantes 
de basic 


Pour le Spectrum, 
effectuez les 
modifications suivantes : 
Remplacez toutes les 
occurrences de : 


TAB (X,Y) : 
par 

AXY; 
et en ligne 1490 : 

1490 LET CSIWAÏ=CHRS(143) 
Supprimer la ligne 1040. 
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Perles 


1 sac de sel 


1 joyau 


- 1 couteau 


RELOR 


Votre navire vient d’aborder le 

Nouveau Monde. Il est possible 
N maintenant de commercer avec 
les indigènes, pourvu que vous 
n’entriez pas en guerre avec eux... 


» Nous en sommes maintenant au stade ultime du 
jeu : le voyage lui-même prend fin avec votre arri- 
vée dans le Nouveau Monde, et vous allez désor- 
maiswous efforcer d'échanger avec les natifs les 
marchandises que vous avez amenées. Vous aurez 
ainsi l’occasion.de faire des profits lors de votre 
retour en Europe, en y revendant ce que vous 
avez acquis. Mais vous n’avez jamais rencontré 
ceux qui vivent dans ce pays inconnu, et ils 
peuvent se révéler amicaux ou hostiles. Il est 
donc très important de ne rien faire qui puisse 
créer des tensions entre eux et votre équipage. 
Une fois que la boucle consacrée au voyage 
prend fin, la ligne 891 appelle le sous-programme 

de la ligne 10000 qui gère votre arrivée dans le 
Nouveau Monde. Alors que votre navire s’appro- 

che du rivage, plusieurs groupes d’indigènes 
armés font leur apparition afin de voir ce qui se 
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Statues À 


V10 2 pièces d° or 2 pièces d d’or | 
V20 ——— 7 À 


EP à Description des 
À _ marchandises offertes 
n | par le chef. 
OISE.) 
. Prix des marchandises 
| quand le bateau quitte le 
port. 


| Prix des marchandises 
quand le bateau revient. 


J pièce d'or 


— 


Rapports sur: les 
= marchandises à 
échanger. 


LA | 
À 4 FE fi 1 & veau Mons 
\ ALI) ITIHETIY Le Nou 

À 


passe. Vous devez maintenant prendre une déci- 
sion très importante : ne pas ouvrir le feu (mais 
le navire risque d’être attaqué), ou tirer (mais cela 
peut déclencher une véritable guerre). 

La ligne 10015 analyse le second élément du 
tableau des provisions, A0), qui indique com- 
bien de fusils il y a à bord. S’il s’en trouve effec- 
tivement, vous devrez faire un choix. La ligne 
15022 attend une réponse : si vous tapez « oui », 
la poudre parlera et de nombreux indigènes 
seront tués. Mais les survivants risquent alors de 
revenir la nuit et d’incendier le navire — ce qui, 
vous vous en doutez, mettra fin à la partie... Il 
est évident qu’une agression injustifiée serait une 
très mauvaise tactique. C’est bien pourquoi la 
ligne 10044 a été insérée dans le programme; elle 
vous empêche de continuer, si par malheur vous 
avez choisi la « politique de la canonnière ». 

Si vous avez choisi de ne pas tirer, il ne se pas- 
sera rien de dramatique, et la ligne 10026 vous 
envoie ligne 10050. Les indigènes montent à bord 
pacifiquement, et se montrent très amicaux avec 
les membres de l’équipage, qu’ils emmènent 
ensuite dans leur village pour rencontrer leur 
chef. Celui-là a déjà rencontré des arrivants de 
l’Ancien Monde, et il est tout à fait bien disposé 
envers vous. Il vous offre de quoi vous nourrir 


et vous reposer, et les échanges (gérés par un 

module séparé) peuvent commencer le lendemain. 

Nous aborderons cet aspect du jeu dans le pro- 

chain article. Mais nous devons d’ores et déjà 
procéder à une mise en place préalable. 

a iles, des épices et des statues avait 
été fixé LOF sque K € Navi éle.port, mais 
a par entre-te 


pes de marchandises. of fe 
Fe s’ Statues, épices: La ligne 61: DIMens 
au VI|) contenant les valeurs mar 
de’Ces objets au moment où le bateau 
I Htc < son «Je us  Ruffle NX 


J es 


pièce el or le gramme 


e le prix des 
A ‘de retour, Mais 


l’éléme VA), q I 

l'élément née par; mis à une, +, deux 0 

pièces d’or, et les épices ou deux } 

d’or et demie par gramme, : ce, “ law 

facoER CA! | k 
ME À nt d dits ne font a 
ne forme pe re: leS Mäfchandises sont 

des taux fixes — un lot contre 


ine ce à 


rie se e pe à 
: treà 0.5 fi > ainsi le Æ\ le) 


perle pour u 1 sa [ Em, EQ(1,2) reçoit 
une valeur corréspondant à l'intersection dupre- 
mier élément du premier indice et du second élé- 
ment du second indice — lé sel ét les nues. 


N PNR s or en Pal 


second indice — à un sac de sel. 
Le taux d’échange es élér 
mier indice - — les bal 
aque ba it vaut cinq | perles, cinq sta- 
tues ou 10 g d’épices. La ligne 67 prend en 
compte les couteaux — troisième élément — 
dont chacun peut être échangé contre trois perles, 
trois statues ou 6 g d’épices. Les joyaux — 
quatrième élément —, sont également gérés par 


ns, et un élément 
EL Lt 62. 


st dé terminé 


L] Module onze : l'Arrivée 


tues se vendaient alors deux. 
et les “épices valaient une 
e je 62, à son tour, | 


propose au capitaine des lo: | 


2 


d’un gramme d’épice — troisième élément du D 


la même ligne : 
4 g d’épices. 

La ligne 68 DlMensionne le tableau A0(3) qui 
gère les quantités de perles, de statues et d’épices 
acquises durant les échanges. Il ne faut pas le 
confondre avec le tableau 0A, consacré aux 
marchandises achetées avant le début du voyage. 
Les valeurs définies dans ce module seront 

Men. Œuvre x: lors des échanges, selon des 

Û Récaiorons ou particulière- 


Ce 


deux perles, deux statues ou 


DiMension tableaux échange 


GO DIMTSCS) T8 C1)=" PERLES" 1T8 (2) =" STATUES" TS 
Ce EPICES" 
1 DIMVA CD) V1 (1)=22V1 (222 V1 CS) e1 
62 DIMV2(3) 1V2(1)=2+CINT CRND (121) /2) 1V202) 224 
CENT CRND C1) %3)-1) 


63 V2(3)=2+CINTCRNDC1)2#1)/2) 

64 DIMEQ(C4, 3) 

65 EQ(1, 1)=0. S:EQ(1, 2)=0. S1E0(1, 3)=1 
66 EQ(2, 1)=51E0(2, 2)=5:E0(2, 3)=109 
67 EQCS, 1)=31EQCS, 2)=231E0(3, 3)=6 

68 EQ(4, 1)=2:E0(4, 2)=2:E0 (4, 3)=4 

69 DIMAD(3) 


Additions au programme principal 


SIP Arrivée 


10008 REM ARRIVEE NOUVEAU MONDE 

10001 PRINTCHRE(147) : GOSUB3200 

10005 S$="VOUS VOILA DANS LE NOUVEAU MONDE»: GOSUB9180 
10006 PRINT :GOSUB3200 

10807 S#="COMME VOUS APPROCHEZ DU RIVAGE*":GOSUBS108 
10085 S$="DES INDIGENES FONT LEUR APPARITION*":GOSUBS1 
ae 
10918 PRINT :GOSUB9200 
10815 IFOA(2) =OTHEN10050 

10017 S$="ILS SONT ARMES ET ONT L'AIR FEROCE !+":GOSUB 
3100 

10018 PRINT:G0SUB9208 

10020 S#="DECIDEZ-VOUS D'OUVRIR LE FEU ? (O/N)+*:G0SUB9100 
10022 INPUTIS: ISmLEFTSC LS, 1) 

10824 IFI8<>"N"ANDIS < >"O"THEN1 0822 

10026 1FI6="N"THEN1O0S@ 

10028 PRINT :GOSUBS200 

10030 Ss="PLUSIEURS SAUVAGES SONT TUES*"1G0SUB9108 

10832 S8="MAIS D'AUTRES REVIENNENT DE NUIT*":GOSUBS100 
10034 S8="ET PAR SURPRISE*" :GOSUB9100 

10836 S$="INCENDIENT VOTRE BATEAU ! !! !+:G0SUB9188 


10038 PRINT :PRINT : GOSUB3208 

10048 S#=" FIN DE LA PARTIE*":GO0SUB9108 

10842 END 

10844 GOTO18842 

10050 S$="ILS VOUS MENENT À LEUR CHEF*"*:GOSUB9100 

10052 S$="IL A DEJA RENCONTRE DES BLANCS*" :G0SUB9100 
10054 S6="ET SE MONTRE TRES AMICAL*" :GOSUB9108 

10056 GOSUB3200 

10058 S$="V0S HOMMES SONT NOURRIS ET PEUVENT SE REPOSER": 
GOSUB310@ 

10060 PRINT :G0SUB3208 

10062 S$="LE LENDEMAIN LES ECHANGES COMMENCENT*" :GOSUB9100 
10064 PRINT :G0SUB9208 

10066 Ss=K$ : GOSUBS 108 

10068 GETIS:1F16=""THEN10068 

PES RETURN 


Variantes de basic 
|| Fempiacez tout au long Vi par Bl), VA) par 


Di}, EQ() par Q{ et AO! par El), et procédez aux 
modifications suivantes : 


60 DIM T$(3,9) 

10001 CLS:GOSUB 9200 

10022 INPUT I$:LET 1$=I${ TO 1} 

10068 LET I$=INKEYS:IF 1$=«» THEN GOTO 10068 


BBC Micro : 
Procédez aux modifications suivantes : 


10001 CLS:GOSUB 9200 
10068 1$=GETS 
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Programme 
TriArbre 


GOTO END 


Pour en finir ici avec le PASCAL, nous allons nous attarder sur divers 
aspects de ce langage que nous n’avons pas encore vus, 
en particulier sur la description des données. 


Le créateur du PASCAL, Niklaus Wirth, avait 
intitulé un de ses livres Structures de données 
+ Algorithmes — Programmes. Cela reflète bien 
l'importance de la description des données pour 
l’écriture fidèle d’algorithmes. Si nous utilisons, 
par exemple, un tableau de Caractères (chars) 
pour représenter une chaîne de caractères, les 
fonctions et procédures nécessaires à leur traite- 
ment (pour trouver leur longueur, les conca- 
téner, etc.) seront très différentes de celles qui 
auraient été nécessaires pour une liste liée. 
Prenons par exemple la simple tâche de trou- 
ver la longueur d’une chaîne. Souvenez-vous que 
nous avons rempli les positions inoccupées de 


Ce programme utilise quelques procédures du 
programme précédent Liste Cyclique. Elles sont 
signalées en lieu utile. Les données sont des 
noms, des montants de dettes, et toutes autres 
zones. Elles sont saisies au clavier et intégrées 
par ordre alphabétique dans un arbre binaire. 
Chaque nœud de l'arbre a deux pointeurs, pour 
les éléments de rangs inférieur 

et supérieur. L'arbre grandit en comparant les 
nouvelles données avec la zone nom de chaque 
nœud et en prenant la zone de liaison 
appropriée (Branchementint ou BranchementSup). Lorsque 
nous trouvons un nœud vide (avec un 
branchement de valeur NI), l'élément est mis en 
place. L'écriture des données au fichier se fait 
alors simplement par une procédure récursive. 
Vous pourriez utiliser ces exemples pour mettre 
en place un gestionnaire de bases de données 
très efficace — suite de programmes adaptés à 
vos propres besoins. Un mot néanmoins de 
mise en garde : lorsque vous introduisez un 
fichier trié dans un arbre binaire, 

chaque insertion se fait sur la même branche, 
et l'arbre sera une liste à un seul lien. 

Pour des applications plus simples, la liste 
cyclique est probablement plus universelle. 

Elle ne comporte aucune espèce de pointeur NI, 
nous évitant ainsi un double test. 


PROGRAM TriArbre ( entrées, sorties, FichierDonnées ): 


CONST 
NomFichier = Donnéesarbresi 


LongueurChaitne = 25: 


TYPE 
Cardinai = @ .. EntierMaxi 
TailleChaine = 1 .. LonsueurChaîne: 
Chaine = PACKED ARRAY LC TailleChaiîne ] 
OF chari 
objet = RECORD 
Nom chaînes 


fautres zones sl 
dette 3% Cardinal 
END:  Jobiet} 


caractères ASCII nuls, chr{0), ou que nous avons 

conclu la liste dynamique par la valeur pointeur 

nulle (NL). La version tableau est simple : 
FUNCTION Longueur {S :chaîne):Cardinal ; 


VAR 
N :0..LongueurChaîne ; 
trouvé  :booléen; 
BEGIN 
N :=0; 
trouvé := faux ; 
REPEAT 
N:=N+1; 


trouvé :=S[N]=chr (0) 
UNTIL trouvé OR (N= LongueurChaînel ; 


TypeFichier = FILE OF objet: 


arbre = {branchements 
Joke référence vers l'avant sur 3 
= RECORD 


élément 


branchement 
i objet; 
BranchementAntérieur 

BranchementPostérieur 
END: 


: ombre 
branchement} 


VAR 
données 3 objet; 
FichierDonnées 
Tronc 

INCLUDE 


5 TypeFichier: 
1 arbre 
*'Utiis.src' À sn Fichier source contenant : 
SauterBiancs, LireCarte, et Lirelisgne 
- xx 
f111111111111111111111111111111111111} 
PROCEDURE LireQuantité (VAR Quantité : Cardinal );: 
jæx Validez une valeur Cardinale légale **} 
VAR 
OK : booléeni 
BEGIN 
REPEAT 
REPEAT 
écrire ( ‘quantité ?' : 20 ): 
IF Eoln € entrées ) THEN 
Readin ( entrées );: 


SauterBilancs ( entrées ) 
jen recommencer lorsque fin de lisne ++} 
UNTIL NOT Eoln ( entrée ); 
LireCarte (entrées, quantité, OK); 
IF NOT OK THEN 
Writeln ( ’--- ERREUR ---' : 20, 
 recommencez la saisie’ ) 
UNTIL OK 
END: 


** le nombre doit être valide #** 
LireQuantité 
f111111111111111111111111111111111111111} 
PROCEDURE C VAR 
** greffer sur l'arbre %* 
BEGIN 
nouveau ( feuille )3 
WITH feuille DO 
BEGIN 
élément := données; 


croissance feuille 


données 


* arbre; 
objet ): 


IF trouvé 
THEN 
Longueur :=N-1 
ELSE 
Longueur := LongueurChaîne 
END ; {Longueur] 


Ce programme prête à confusion. Pourquoi 
avons-nous besoin de la variable booléenne 
trouvé? Et pourquoi devons-nous assigner la 
valeur N-1 à Longueur? Ces détails, gênants, peu- 
vent devenir très trompeurs avec des algorithmes 
plus importants s’il faut avoir recours à des stra- 


tagèmes artificiels de cette sorte. 


L'utilisation de « drapeaux de bits » est sans 
doute le truc le plus vieux du programmeur, mais 
ils sont souvent introduits dans l’intérêt de l’ordi- 
nateur et non comme éléments naturels aux algo- 
rithmes. Il faut utiliser la variable locale N, et 
non Longueur qui est un identificateur de fonction 
et non pas une variable. Les identificateurs de 
fonctions présents dans la partie droite d’une ins- 


truction telle que : 


Longueur := Longueur+ 1 


essaieraient de lancer un appel récursif à la fonc- 


tion Longueur elle-même. 


branchement antérieur = NIL: +* Plus de données 


branchement postérieur 1= NIL après cette ramification 
END 
END: Croissance 


ftts1111111111111111111111111111111111111111| 


PROCEDURE avancer ( pousse : arbre; 
** trouver de la Place Pour insérer #* données : objet )3 
VAR 
rameau arbre 
Piussrand : booléeni 
BEGIN 
MHILE pousse <> NIL DO 
BEGIN j»* Trouver une branche vide +*| 


rameau := pousse 
#iussrand = données Nom} 
rameau élément Noms 
IF Ppiussrand 
THEN }#* avancer dans l'arbre x} 
pousse := pousse. Branchementpostérieur 
ELSE Jun redescendre «| 
pousse := pousse |. Branchementantérieur 
END: 


Croissance ( pousse, données ) 
IF piussrand 
THEN À inséreraprès + | 
rameau BranchementPostérieur = pousse 
#+* inséreravant #* 
rameau BranchementAntérieur = pousse 


END: Avances 
fitiitii1111111111111111111111111111111} 


PROCEDURE Print © VAR F 1: TypeFichiers 
je écrire les données à un fichier **iracine : arbre )3 
BEGIN 
IF racine <»> NIL THEN 
WITH racine ! DO ES récursion il 


BEGIN }»* écrire dans l'ordre :| 
Print ( F, BranchementAntérieur )3 EC ARRET d'abord} 
write CF, élément )3 Îla racine elle-même! 
Print (F, BranchementPostérieur ) Postérieurdernier ++ | 
END 


END5 }Print} 
SALALALAAANAAIAAANANTALIANAAAIAANAAIAIILIAAIINAIA 


PROCEDURE reprendre ( VAR racine # arbre )5 
jus Récupérer ia mémoire allouée, pour d'autres usases «| 
BEGIN 


Comparez cela à la fonction Longueur nécessaire 
aux chaînes utilisant une liste liée. Souvenez-vous 
que, avec la représentation dynamique, la défi- 
nition TYPE de string (chaîne) est très différente, 
permettant la création d’une chaîne de lon- 
gueur libre. De telles descriptions de données 
seront souvent définies récursivement. 

De nombreux exemples simples utilisés pour 
illustrer la récursion pourraient être exprimés 
aussi bien (si ce n’est mieux) par des algorithmes 
itératifs. Mais voyons la fonction Longueur pour le 
type chaîne récursif : 


FUNCTION Longueur (S :chaine)  :Cardinal; 
BEGIN 
IF S=NIL 
THEN 
Longueur :=0 
ELSE 
Longueur : =succ (Longueur{St . suivant) 
END; {Longueur] 


S est le début de la liste, et l’expression Sf.suivant 
sélectionne la zone pointeur du prochain enregis- 
trement de la liste. Une alternative est de conce- 
voir cette expression comme une liste commen- 
çant par l’enregistrement suivant (SaufPremier). A 


<IF racine» NIL THEN {#+ faire récursion *+| 


BEGIN **+ récupérer les branches d'abord — 
Récupérer ( racine BranchementAntérieur )3 
Récupérer ( racine BranchementPostérieur )3 
Supprimer ( racine ) — ensuite la racine ** 
END 


END: Récupérer 
fiti1111111111111111111111111111111111111111111} 


BEGIN TriArbre - Prosramme principal ) 


assisn ( FichierDonnées, NomFichier )3 
pase ( sorties )3 
Writeln ( ’=== Tri de l'arbre ===" : 25 )5 
Writelns 
Writeln ( "Saisir des données ( le nom d'abord)’ )3 
write € Nom 7 "33 
ReadLine ( données Nom )3 
ReadAmount ( données . dette )5 
croissance ( tronc, données )i * implanter le tronc de 
l'arbre * 
write (© Nom ? * )3 
ReadLine ( données . Nom )35 
WHILE données . Nom £ 1 ]1<3>chr ( @ > DO 
BEGIN 
LireQuantités ( données . date )i 
Avancer ( tronc, données )3 
Writeln € "RETURN lorsaue fait’ : 48 )3 
write C Nom 7? * )3 ” 
ReadLine ( données . Nom ) 

END: 

EE autres traitements, alors lire le fichier :| 
Writeln ( ’Ecrire les données sur : *,; NomFichier )5 
rewrite ( FichierDonnées )3 
Print ( FichierDonnées, Tronc )3 


Writelni 
Writeln ( ’Dette’ : 8, ‘Nom’ : LonsueurChaîne )3 
Writelns 
reset ( FichierDonnées )3 }»* lire le fichiers} 


et afficher les données dans l'ordre : 
WHILE NOT EoF ( FichierDonnées ) DO 
BEGIN ** lire chaque enregistrement x 
read ( FichierDonnées, données 
fx écrire les zones à la VISU :| 
WITH données DO 
Writeln ( dette : 8, * : ', Nom ) 
END: 


Récupérer ( tronc )3 jun vider la mémoire} 
Pour d'autres traitements *# 
END: 
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k Passer à une nouvelle E 


feuille 

Le programme TriArbre 
utilise une structure 
d'arbre binaire pour 
sauvegarder des données 
triées sur une zone clef. 
Les éléments sont mis 
sur une branche basse 
ou haute selon l'ordre 


alphabétique de la zone 


du nom. La procédure 

« Croire » crée chaque 
nouveau nœud, 

et « Avance » trouve le 
chemin vers la bonne 
branche NIL. 

Ce dessin montre une 
simple structure d'arbre 
binaire, chaque nœud 
ne comportant qu’un 
caractère (lt). | montre 
comment est sauvegardée 
une simple chaîne de 
caractères en minuscules 
(« pascal »). La zone en 
rouge indique une étape 
de la croissance de 
l'arbre, selon la 
procédure « croissance ». 


 jettre>"p" 


lett<’e’ 


new (feuille) 
WITH feuille tDO 


BEGIN 

lett:=caractère 
BranchementInférieur:=NIL 
BranchementSupérieur:=NIL 


1728 


chaque rencontre de NL, nous demandons une 
évaluation de la longueur de SaufPremier, et nous 
l’incrémentons par la fonction succ. 

Beaucoup d’autres problèmes ne peuvent être 
résolus efficacement que par la récursion. 
L’exemple précédent est très simple et devrait 
vous permettre d’écrire facilement Longueur, sans 
utiliser la récursion. Cela prend plus de code, et 
il faut utiliser un compteur local (comme avec la 
version tableau) précisément pour éviter la 
récursion. 


FUNCTION Longueur!S :chaîne) 
VAR 
N  :Cardinal; 


:Cardinal ; 


N :=0; 
WHILE S <>NIL DO 
BEGIN 
N:=N+1; 
:=S.suivant 
END; 
Longueur := N 
END; {Longueur} 


Même avec cet algorithme itératif, la clarté et la 
concision ne sont qu’apparentes et dues à la sim- 
ple nature récursive de la structure des données. 

De nombreux compilateurs PASCAL mettent en 
œuvre des directives ou instructions pour le com- 
pilateur — et non des instructions ou déclara- 
tions. La seule directive demandée par le stan- 
dard ISO est Forward. Lorsque deux procédures ou 
fonctions doivent s’entre-appeler, on dit qu’elles 
sont mutuellement récursives. Cela se produit 
rarement, et cela pose le problème de ne pouvoir 


utiliser un objet PASCAL quel qu’il soit avant 
qu’il n’ait été déclaré ou défini. 

La solution est de ne déclarer que l’en-tête d’un 
des sous-programmes, remplaçant son bloc par 
la directive du compilateur FORWARD. Après défi- 
nition complète de l’autre module, l’en-tête est 
donné en abrégé (sans la liste des paramètres) et 
le bloc est alors défini. On dispose quelquefois 
d’autres directives pour contrôler les options de 
compilation. Elles doivent cependant être évitées 
dans la mesure du possible, pour préserver la por- 
tabilité de vos programmes. Cela signifie que, 
outre la présence nécessaire d’un symbole spéci- 
fique (habituellement $) avant le premier carac- 
tère du commentaire, les options non portables 
ne sont pas susceptibles de recevoir un drapeau 
par d’autres compilateurs. Quelques versions non 
standards (notamment HiSoft) nécessitent une 
syntaxe légèrement différente pour les déclara- 
tions de pointeurs vers l’avant. Vous devez alors 
vous référer à votre manuel. Il y a peu de ver- 
sions non standards, et il n’y en a aucune parmi 
les compilateurs PASCAL à la norme ISO. 

Il existe une autre description des données 
en PASCAL que nous n’avons pas vue, la 
« variante ». Lorsque nous avons voulu stocker 
des éléments de type différent, nous avons uti- 
lisé un enregistrement approprié aux zones 
typées. Mais supposons que la description d’une 
partie de l’enregistrement, ou même de sa tota- 
lité, doive être modulable. Prenons l’exemple 
d’un fichier d’état civil : nous voulons stocker 
des informations personnelles sur des sujets 
donnés. L’attribution de ces informations dépen- 
drait du fait que les sujets soient mariés ou non. 
Un enregistrement-variante a sa partie constante 
définie en premier. La partie variante est ensuite 
précisée par l’introduction d’un sélecteur de 
variante (de type simple), et par les mots ré- 
servés CASE et OR. Par exemple : 


TYPE 
Sexe = (masculin, féminin); 
variant = RECORD 
{toutes zones communes] 
CASE mariés : booléen OF 
faux :{); 
vrai :(DateMariage :chaîne ; 
CASE sexe : sexe OF 
masculin : (|; 
féminin : (NomDeJeunefille :chaîne)} 
END: {variante] 


Remarquez que les listes de zones vides doivent 
toujours être mises entre crochets. L'espace d’un 
fichier est alors fixe (selon la plus grande 
variante), mais la mémoire peut être sauvegar- 
dée avec des pointeurs sur des variantes telles que 
new(p,vrai mâle). 

Les quelques points faibles du PASCAL ont été 
en grande partie supprimés par les spécialistes (et 
par Wirth dans MODULA-2). Ce langage est ter- 
riblement puissant bien que de petite taille. Il est 
très efficace, d’utilisation universelle et facile à 
apprendre. Les avantages d’avoir tous vos pro- 
grammes PASCAL en code source portables de 
manière universelle sont inappréciables. 


| 
D 


Compatible compétitif 


L’un des premiers constructeurs de micros, la Tandy Corp., 
n’a pas véritablement réussi à s’imposer sur le marché. 
Le compatible Tandy 1000 marquera:t-il un tournant? 


S’attaquer à un géant 

Le Tandy 1000 est une 
machine compatible avec 
l'IBM PC sur laquelle son 
constructeur a misé pour 
reconquérir une bonne part 
du marché. Pour assurer la 
compatibilité, le Tandy 1000 
est construit autour 

du processeur Intel 8088 
et utilise les unités de 
disquette standards 5; 
pouce. Ici, le modèle, à 
deux unités de disquette, 
est muni de 128 K de 
mémoire additionnels 


Bien que la Tandy Corporation ait été l’un des 
pionniers de la micro-informatique avec le 
TRS-80, la société n’a pas réussi à remporter des 


succès comparables à ceux de Commodore dans 


le marché domestique, ou à ceux d’Apple dans 
le marché professionnel — tous deux étant ses 
concurrents de la première heure. Mais Tandy 
semble avoir acquis beaucoup d’expérience et a 
l’intention d’attaquer sérieusement le marché 
professionnel. D’une part, en s’associant avec 
ACT (le constructeur de l’Apricot), Tandy a 
étoffé la gamme des machines proposées dans sa 
chaîne européenne de centres informatiques, 


Chris Stevens 


puisque ceux-ci vendent maintenant la gamme 
Apricot. D’autre part, la création de sa propre 
division de fabrication illustre le dynamisme de 
l’offensive de ce constructeur. 

Il est de plus en plus certain que la clé du suc- 
cès en micro-informatique consiste actuellement 
à proposer un matériel compatible avec l’IBM PC 
au meilleur prix possible. Aux États-Unis, c’est 
aussi vrai dans le marché domestique que dans 
le marché professionnel, puisque les consomma- 
teurs n’hésitent pas à acheter, pour la maison, 
des machines que les Européens jugent trop coû- 
teuses pour être utilisées ailleurs qu’au bureau. 

Le Tandy 1000 est proposé comme entièrement 
compatible; sa version de base inclut une unité 
de disquette et 128 K de mémoire pour un coût 
très compétitif. Tandy espère ainsi revitaliser sa 
division de produits informatiques. 

La machine que nous examinons ici est une 
version 256 K à deux unités de disquettes. La 
machine ressemble un peu à l’IBM PC. L'unité 
consiste en un grand boîtier qui contient l’ordi- 
nateur lui-même, les interfaces et les lecteurs de 
disquette. Un moniteur est posé sur l’unité, et la 
mobilité du clavier permet de définir une posi- 
tion de travail très confortable. 

D’apparence externe, le Tandy semble aussi 
robuste et aussi fiable que l’IBM PC. Comme 
celui-là, le Tandy possède un clavier détachable 
muni de touches moulées à disposition incurvée 
qui facilitent la frappe. De plus, afin d’assurer 
un meilleur confort de travail, deux pattes pla- 
cées sous le clavier permettent de l’incliner à un 
angle de 15°. 

Bien que le Tandy possède les touches néces- 
saires pour assurer /a compatibilité, leur dispo- 
sition est différente de celle du PC. Cette straté- 
gie comporte ses inconvénients et ses avantages. 
Si le clavier du PC est généralement apprécié, il 
est — aussi — assez souvent critiqué en raison 
de l’étrange disposition de certaines touches 
vitales, comme les touches SHIFT et ALTER- 
NATE. La taille relativement réduite des touches 
Control et RETURN a notamment été sévè- 
rement critiquée. 

Tandy a évidemment tiré des enseignements de 
ces critiques lors de la conception du clavier. La 
touche « / », qui compliquait l’utilisation de la 
touche SHIFT, a maintenant été retirée — sa 
fonction étant assurée par SHIFT-4 et SHIFT-7 
sur le pavé numérique. De même, les touches 
ALTERNATE et CAPS LOCK ne sont plus 
placées de chaque côté de la barre d’espacement 
mais, respectivement, dans la zone du pavé 
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numérique et à l’extrême gauche sous les touches 
de commande. Ces changements donnent globa- 
lement une frappe plus confortable que sur le PC. 

Le désavantage est évident : après avoir réussi 
à s’habituer à l’étrange clavier du PC, vous 
devrez réapprendre à utiliser cette autre dispo- 
sition. Cependant, les nouveaux utilisateurs 
n’auront pas tous ces problèmes avec le clavier. 
Le mécanisme des touches lui-même est d’excel- 
lente qualité. 

Tandy a aussi apporté d’autres changements 
au clavier. Les touches INSERT et DELETE ont 
été intégrées aux fonctions + et — et sont main- 
tenant placées au-dessus du pavé numérique, et 
non en dessous. Parmi les touches additionnel- 
les, mentionnons celles de déplacement de cur- 
seur individuelles pour l’édition, les touches 
HOLD, PRINT et BREAK, qui ont toutes été 
placées entre les touches texte et le pavé numé- 
rique. L’addition de ces touches impliquait un 
nouvel emplacement des touches de fonction, qui 
sont maintenant situées au-dessus des touches de 
texte. Pour inévitable qu’elle soit, cette nouvelle 
position est moins bonne que la précédente; 
mais à titre de compensation, Tandy a fourni 
deux touches de fonction additionnelles. 

Pour ce qui est de l’ordinateur lui-même, 
Tandy a opté pour le large boîtier choisi par IBM. 
Les unités de disquettes 5 ; pouces sont situées 
à l’avant du côté gauche, bien que le modèle de 
base ne soit livré qu’avec une seule unité. Moins 
bruyantes que leurs équivalents IBM, les unités 
de disquette ont des vitesses d’accès légèrement 
différentes. Il est assez décevant que le dispo- 


Bouton 
de remise à zéro | 

Ce bouton, à l’avéiil 
l'ordinateur, perniiël 
d'effectuer un 
démarrage à froid” 


système. _ ù 


supplémentaire. 
La machine présentes 
est équipée deM28K de 
RAM additionnels. 
placés danslune.des 
fentes diextension 


Prise 
du cläkien 

Le clavier est branché 
dans cette prise DI 


Ports 
de manettes 
Les manettes et les 
manches à balai sont 
branchés dans cette 
paire de 
prise DIN. 


Haut 
parleur 
Pour permettre 
d'exploiter le potentiel 
sonore autorisé par le 
MS-8asic, l'ordinateur est 
muni de son propre 
haut-parleur intégré. 


sitif de chargement ne soit pas à ressort. Cela 
signifie que les disquettes ne sont pas éjectées des 
unités lorsque vous les ouvrez et que vous devez 
les retirer manuellement. 

Dans le coin inférieur gauche, sous une ouver- 
ture d’aération, une paire de connecteurs DIN 
à six broches est destinée au branchement de 
manches à balai ou à d’autres dispositifs de 
commande. A la gauche de ceux-ci, on aperçoit 
un gros bouton orange, le bouton de remise à 
zéro du système, qui permet d’effectuer un 
démarrage à froid. Bien qu’il soit trop apparent, 
il y a peu de risque qu’il soit pressé inopinément, 
puisqu'il se trouve en renfoncement dans le bof- 


Q Q 

7 la version standare 
comporte qu'une seule 
unité de disquette. 


tier. En fait, il est très bien placé, puisque de 
nombreuses applications ne vous permettront de 
passer au système d’exploitation qu’en appuyant 
sur ce bouton. Il est donc pratique que le bou- 
ton de remise à zéro soit placé à un endroit facile 
à atteindre. 

Les interfaces de périphériques sont situées à 
l'arrière de l’ordinateur. A l’extrême gauche, on 
aperçoit l’entrée de l’alimentation qui est située 
juste au-dessus de l’interface parallèle Centro- 
nics. À droite, un connecteur de type D à sept 
broches est destiné à un crayon optique et, sous 
ce connecteur, un port à sept prises permet de 
connecter un moniteur RVB. Plus à droite, sous 


un ventilateur de refroidissement, une paire de 
minijacks servent de prise vidéo composite pour 
des moniteurs vidéo composite monochromes ou 
couleurs et de prise audio permettant d’amplifier 
le son de l’ordinateur par l’intermédiaire d’un 
système hi-fi conventionnel. A l’extrême droite, 
trois prises d’extension permettent d’ajouter des 
interfaces de périphériques ou des modules de 
mémoire additionnels. 


Comparaisons 


Tandy insiste sur le fait que sa machine offre de 
nombreuses caractéristiques d’interface, qui sont 
absentes sur l’IBM PC. Même si cela est vrai, 
Tandy ne semble avoir prévu que le strict mini- 
mum pour une utilisation professionnelle. Par 
exemple, la version de base propose 128 K de 
RAM, ce qui n’est pas assez pour exécuter cer- 
tains logiciels intégrés récents. Et bien que le 
Tandy 1000 soit une machine autonome, un port 
RS232 (qui est optionnel) est essentiel pour toute 
application de gestion sérieuse. En revanche, il 
représente un meilleur rapport qualité/prix que 
le PC qui, avec les mêmes caractéristiques, coûte 
beaucoup plus cher. Mais il est évidemment 
essentiel que la machine soit entièrement compa- 
tible avec le logiciel IBM. 

Le problème pour réussir à être compatible 
avec l’IBM PC ne se situe pas au niveau de 
P'UC 8088 ou même du système d’exploitation 
MS-DOS, puisque tous deux peuvent être ache- 
tés auprès de leurs fabricants. La difficulté se 
situe au niveau du BIOS (Basic Input/Output 
System), dont IBM a les droits. De nombreux 
programmes utilisent des branchements directs 
à des routines BIOS, et si les routines correspon- 
dantes de la machine compatible ne sont pas 
situées aux mêmes endroits, le programme ne 
pourra fonctionner correctement. A cet égard, le 
BIOS du Tandy 1000, écrit par Phoenix Com- 
patibility Corporation est exceptionnel. Non seu- 
lement le Lotus 1-2-3, très difficile, fonctionne 
sur la machine (bien que l’espace mémoire de 
256 K paraïisse serré), mais l’ordinateur exécute 
également Wordstar 2000 et dBASE II. Malgré 
cela, le Tandy 1000, comme l’IBM PC, est extrê- 
mement lent dans les calculs mathématiques en 
BASIC. Un comptage de 0 à 1000, utilisé comme 
test de performances, mit 6 secondes — plus lent 
que sur plusieurs micros 8 bits. 

Le Tandy 1000 représente sans aucun doute 
une solution intéressante pour l’utilisateur pro- 
fessionnel qui désire tirer parti de la quantité 
colossale de programmes de qualité qui ont été 
écrits pour l’IBM PC. Cependant, en raison des 
contraintes matérielles imposées par la compati- 
bilité IBM — et par souci d’obtenir un coût de 
revient aussi bas que possible —, Tandy ne peut 
que proposer une machine qui est essentiellement 
démodée en terme d’informatique de gestion. 

Cependant, à moins qu’IBM diminue le prix 
de ses machines (ce qui semble peu probable), 
Tandy Corporation vient là de produire un outil 
qui pourrait remporter un important succès 
auprès d’une large clientèle. 


*x x x x pour la 
version 128 K, avec une 
seule unité de disquette. 


420 x 335 x 150 mm. 


8088, fonctionnant à 
4,77 MHz. 


128 K de RAM en 
version standard; 
extension possible 


LANGAGES DISPONIBLES 


BASIC, plus une 


La documentation 
explique le . 
fonctionnement de 
MS-D0S, de MS-Basic et 
du logiciel intégré … 
Deskmate fourni a 

la machine. : 


Entièrement compatible 
avec l'IBM PC, avec de 
nombreuses interfaces 
qui ne sont pas k 
fournies sur le modèle 
de base du PC. 


Tandy n'a pas amélioré 
énormément la 
conception de la 
machine par rapport 

au PC. L'utilisation du 
processeur8088aulieudu 
8086, plus perfectionné, … 
signifie que le Tandy 
fonctionne plus ; 
lentement qu’il ne le 
devrait. 
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Exocet SUR EXL 100 


Le micro EXL 100 d’Exelvision n’est pas oublié dans notre rubrique 
« Jeux ». Des programmes écrits par Pierre Monsaut ont été adaptés 
à cet ordinateur. En voici un. 


100 REM #42 

110 REM * EXOCET * 

120 REM ##H#M tn 

130 R=0 

140 GOSUB 970 

150 GOSUB 790 

160 CALL COLOR ("1MC") 

170 LOCATE (AY,AX):PRINT A#; 

180 IF BX>36 THEN LOCATE (BY,37):PRINT M 
#;:BB=1:GO0T0 210 

190 CALL COLOR ("1BC") 

200 LOCATE (BY,BX):PRINT B#; 

210 AX=AX-1 

220 IF AX<1 THEN LOCATE (AY,1):PRINT M#; 
:AX=358 

230 BB=BB+.2 

240 BX=INT (BB) 

250 CALL KEY1(D3,D4) 

260 IF D3<>255 AND EY=0 THEN EX=AX:EY=AY 
+1:NX=NX-1 

270 IF EY<>O THEN 310 

280 FOR 1=1 TO 10 

290 NEXT 1 

300 GOTO 160 

310 EX=EX-1 

320 EY=EY+1 

330 LOCATE (EY-1,EX+1):PRINT N#; 

340 IF EX<1 THEN EX=38 

350 1F EY=23 THEN 400 

360 IF EY=22 AND ABS(EX-2-BX)<2 THEN G0S 
UB 620 

370 CALL COLOR ("1RC") 

380 LOCATE (EY,EX):PRINT E#; 

390 GOTO 160 

400 IF EX=40 THEN EX=1 

410 LOCATE (EY-1,EX+1): PRINT N#; 
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EY=0 
EX=0 

IF NX=0 THEN 460 
GOTO 160 

CLS 

IF S>R THEN R=S 
CALL KEY1(D3,D4) 

IF D3<>255 THEN :480 
CALL COLOR ("1BC") 
LOCATE (10,11) 
PRINT "SCORE :";S; 
LOCATE (13,11) 
PRINT "RECORD :";R; 
LOCATE (16,11) 
PRINT "UNE AUTRE ?"; 
CALL KEY1(D3,D4) 

IF D3=255 THEN 570 
IF D3<>78 THEN 150 
CLS 

END 

LOCATE (EY-1,EX+1) 
PRINT N$; 

S=5+10 

LOCATE (EY,EX) 
CALL COLOR ("1bC") 
PRINT F#; 

FOR 1=1 TO 30 
X=INTRND (4) -2 
Y=INTRND (6) -1 
LOCATE (EY-Y,EX-X) 
PRINT F$; 

NEXT 1 

FOR 1=1 TO 200 
NEXT 1 

NX=NX+1 

CLS 


Un porte-avions ennemi s’est aventuré dans les 
eaux territoriales et refuse d’obéir aux somma- 
tions. Aux commandes de votre Mirage 2000, 
vous devez absolument le détruire avant qu’il ne 
menace votre base. Tapez une touche quel- 
conque pour tirer. 


83B3BBSESS 
8 


SEE 


“ 
è 


CLS ("BCb") 
CALL CHAR (100, "000000000007FFFF7F 00" 


980 

) 

990 CALL CHAR(101,"O00202038FCFFFFFFFF00" 
) 


1000 CALL CHAR (102, *0000000000E0FFFCFB00 
1010 CALL CHAR (105, "0000000000003F7FFF00 
1020 CALL CHAR (104, “000000000103FFFFFF00 
1030 CALL CHAR (105, "00000000007DFF7D0000 
1040 CALL CHAR (106, “000821800A0028001000 
1080 RETURN 


©) SYBEX 1984 
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Connaître votre micro 


Nous avons déjà présenté des livres permettant de mieux exploiter 
les possibilités des micros Thomson. Nous donnons ici une liste 
de livres pour le VG 5000 de Philips et l’Alice de Matra. 


S compare 


Vous avez acquis un ordinateur avant d’aborder 
cette encyclopédie, ou bien vous avez fait cet 
achat au cours de sa lecture. Peut-être avez-vous 
déploré que l’on parle peu des particularités de 
votre machine, et vous êtes-vous senti un peu seul 
à parler votre « dialecte » BASIC. 

Mais rassurez-vous. Pour tous les micro- 
ordinateurs présents sur le marché, il existe une 


bibliographie plus ou moins abondante. Aussi 
avons-nous sélectionné pour vous quelques titres 
d'ouvrages consacrés aux matériels les plus 
répandus en France. Ils vous aideront à mafîtri- 
ser parfaitement votre ordinateur et, dès lors, 
vous serez à même d’adapter la plupart des pro- 
grammes présentés dans ABC Informatique à 
votre machine. 


VG5000 pour tous 
Initiation + programmes 


Le VG 5000 de Philips est un petit micro, surtout 
destiné aux jeunes utilisateurs désireux de s’ini- 
tier à la programmation en BASIC et de s’y per- 
fectionner. L'ouvrage est conçu de façon à faci- 
liter cet apprentissage à travers des exemples 
très simples et progressifs. La plupart des ins- 
tructions disponibles sont traitées soit par un 
organigramme, soit par un texte. 

Elles sont regroupées dans un index en fin 
d'ouvrage. 


Par J.-M. Jégo. 
145 pages, format 17 x 23 cm. 
PSE 


102 programmes pour VG 5000 


La plupart de ces jeux destinés à l’ordinateur 
individuel VG 5000 sont utilisables sans grande 
modification sur d’autres ordinateurs utilisant 
aussi un BASIC Microsoft. Les programmes pro- 
posés sont très courts et classés par ordre de 
difficulté croissante, suivant cinq niveaux. Cha- 
que jeu est présenté par une courte description, 
suivie de l’étude détaillée deslignes importantes 
du programme et, enfin, quelques suggestions 
pour des améliorations ou des modifications 
permettant de rendre le jeu plus attrayant. 


Par J. Deconchat. 
240 pages, format 17 x 25 cm. 
P.S.I. 


Philips 
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Matra 


20 programmes astucieux pour Alice 


Ce recueil illustré de photos et dessins vous pro- 
pose une grande variété de programmes de jeux 
à exécuter sur votre micro-ordinateur Alice : jeux 
éducatifs, divertissements populaires connus ou 
plus originaux, qui tous feront appel autant à vos 
réflexes qu’à votre sens stratégique, et aideront 
le programmeur débutant à concevoir ultérieu- 
rement de nouveaux programmes de son cru. 


Par I. Creasey et A. Stemmer. 
95 pages, format 14 x 22 cm. 
Hachette Informatique. 


Philips 


Jeux sur VG 5000 Philips 


Des techniques générales de programmation des 
jeux, faisant surtout appel au graphisme, précè- 
dent la présentation des jeux proprement dits, 
et sont classés par catégories : action à un ou 
deux joueurs, réflexion à un ou deux joueurs, 
aventure. Chaque jeu est présenté par un orga- 
nigramme et une étude du programme, suivis du 
listage. Ce livre de B. Amsler et ©. Villemaud a 
été réalisé en étroite collaboration avec Philips. 


215 pages, format 15 x 21 cm. 
Edimicro. 


Matra 


Pratique du micro-ordinateur Alice 


Entrez, vous aussi, dans ce monde merveilleux 
que vous ouvre l'informatique. Grâce à ce livre, 
passez de l’autre côté du miroir et apprenez tout 
ce que vous devez savoir pour mettre votre micro- 
ordinateur à votre service. Ce livre vous montre 
comment, dans un langage simple et accessible 
à tous; il est abondamment illustré d'exemples 
pratiques, totalement développés, avec leurs 
résultats, et clairement commentés. Ce sera 
votre guide le plus sûr. 


Par H. Lilen. 
160 pages; format 21 x 29,7 cm. 
Editions Radio. 


LL TT TT 


Dessiner, peindre... et jouer avec Alice 


Apprendre à programmer en dessinant, en colo- 
riant et en jouant, tel est l'objectif de ce livre qui 
réussit ainsi à joindre l’utile à l’agréable. Vous 
pourrez faire du dessin à main levée et créer des 
effets graphiques, apprendre la géographie, pro- 
grammer de nombreux jeux faisant appel à votre 
intelligence et à votre habileté. Vous aurez aussi 
appris à programmer en Basic Microsoft, un 
standard du marché. 


Par L. Gros. 
152 pages, 17 x 22 cm. 
Eyrolles. 


Matra 
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Langage machine 
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Nous explorons quelques-unes des routines en virgule 
flottante d’interpréteur BASIC pour le C64, en développant 
un programme graphique sur écran haute résolution. 


Les routines en virgule flottante de l’interpréteur 
BASIC ne sont pas très bien documentées. Par 
exemple, il n’y a pas de table de saut des adres- 
ses d’appel, comme dans le cas du noyau. Il sera 
donc long de trouver les appels dont vous aurez 
besoin. Aussi, pour plus de précision, nous ten- 
terons de faire une routine graphique en langage 
machine qui nous permettra de faire tourner une 
figure « fil de fer » en trois dimensions sur l’écran 
haute résolution. 

Les techniques mathématiques dont il est ques- 
tion ici pourraient, bien sûr, servir de base à 
d’autres routines arithmétiques rapides, telles que 
la multiplication matricielle. Il est bon de se sou- 
venir qu’en faisant des calculs arithmétiques en 
temps réel, afin de créer des images d’écran suc- 
cessives, il n’est pas nécessaire d’avoir la meil- 
leure approche en programmation. Il est souvent 
préférable de calculer d’abord les données à par- 
tir desquelles seront affichées les différentes figu- 
res, avant de commencer la séquence d’anima- 
tion. Toutefois, la technique de temps réel sert 
plus efficacement notre but. 

Les variables BASIC sont stockées en mémoire 
au-dessus du programme. Ces variables sont 
contenues dans une Table de Variables, dont le 
début est indiqué par le contenu des emplace- 
ments 45 et 46 (décimal). Comme tous les poin- 
teurs dans le C64, ceux-ci sont stockés en format 
lo-hi. L'adresse de départ de la Table des Varia- 
bles est donc indiquée par la formule : 


PEEK (45) + 256* PEEK (46) 


Les divers pointeurs associés aux variables et leurs 
contenus normaux sont indiqués dans le tableau 
suivant : 


Dépend de la longueur du programme 


Dépend du nombre de variables 
Dépend de nombreltaille de tableaux 
Dépend de nombreltaille des chaînes 
40960 


Notez que les chaînes dynamiques sont construi- 
tes à partir du haut de la mémoire au fur et à 
mesure qu’elles sont définies. Toutefois, les 
tableaux sont stockés au-dessus des autres varia- 
bles dans la Table des Variables et, lorsqu’on ren- 
contre une nouvelle variable au cours de l’exé- 
cution du programme, le système d’exploitation 


décale toute la zone de stockage de tableau du 
nombre d’octets requis pour la stocker. 

Le stockage de chaînes est nécessairement 
plus compliqué que celui d’autres variables. Les 
variables entières (pas dans un tableau) et les 
variables en virgule flottante requièrent toutes 
sept octets, mais une chaîne peut en nécessiter 
jusqu’à 255. Pour venir à bout de cette compli- 
cation, le système d’exploitation ne stocke que 
la longueur de la chaîne et un pointeur à son 
adresse de début dans la Table de Variables. Si 
une chaîne est définie dans un programme BASIC 
(A$="ABCD", par exemple), alors ce pointeur indi- 
quera le premier octet de la chaîne dans la zone 
programme BASIC. Une telle chaîne est appelée 
« statique ». Si le programme modifie la valeur 
d’une chaîne, on dit qu’elle est « dynamique ». 
Les valeurs de chaînes dynamiques sont construi- 
tes en descendant à partir du haut de la mémoire, 
et le pointeur dans la Table de Variables est 
modifié en conséquence. Ainsi, chaque entrée est 
contenue dans les mêmes sept octets. 

L’adresse d’une variable dans la Table de 
Variables peut être facilement trouvée à partir de 
BASIC. Le secret réside dans le fait que, juste 
après qu’une variable a été appelée par l’inter- 
préteur BASIC, son adresse sera indiquée par le 
pointeur de page zéro dans les adresses décima- 
les 71 et 72, et cela peut être inspecté pour décou- 
vrir les adresses. Toutefois, nous devons rapide- 
ment récupérer cette information puisque 
l'emplacement 71 est aussi utilisé par le système 
d’exploitation lorsqu'il évalue certaines expres- 
sions numériques. 

Les programmes suivants illustrent le format 
des variables ordinaires telles qu’elles sont stoc- 
kées en mémoire. La première routine récupère 
une chaîne de la mémoire. Ici, nous utilisons la 
technique que nous venons de décrire pour ins- 
pecter les contenus des emplacements 71 et 72 et 
stocker immédiatement ces valeurs dans deux 
emplacements de réserve dans le tampon cassette. 
Ceux-ci serviront à calculer ultérieurement 
l’adresse de la chaîne, afin de la récupérer. 


1000 REM+*TROUVER UNE CHAINE EN MEMOIRE#* 
1010 X$="ABCDEF" 

1020 REM*#FAIRE DE X$ UNE VARIABLE EN COURS** 
1050 XS=XS+" " 

1040 REM*+*SAUVEGARDER POINTEUR VERS TABLE VARe# 
1050 POKE 628, PEEK(71):POKE 829, PEEK(72) 

1060 REM++*ADR DANS TABLE VARæ# 

1070 ADR=PEEK(828) +256*PEEK (829) 

1080 REM**REGARDER ENTREE DANS TABLE VAR#* 
1030 LS=PEEKÇCADR) :REM LONGUEUR DE CHAINE 

1100 SA=PEEK(ADR+1 ) +256PEEK(ADR+2) 

1120 REM**LECTURE DE CHAINE“* 

1130 FOR 1=SA TO SA#HLS 


LEE 


1140 VAR#=VARS+CHRS(PEEK(I)) 
115@ NEXT 
1160 PRINT VARS 


Vous pensez peut-être qu’en utilisant des varia- 
bles entières (marquées par un signe pour cent, 
tel que X%) vous économiserez de la mémoire et 
accélérerez le calcul. Avec le C64, toutefois, ce 
n’est pas le cas. Lorsque le BASIC Commodore 
doit effectuer des calculs sur des entiers, il les 
convertit en virgules flottantes et appelle les rou- 
tines virgule flottante! Ainsi, bien que les varia- 
bles entières puissent être stockées sur deux octets 
seulement, à moins d’être stockées dans un 
tableau, elles se verront attribuer chacune 
sept octets d’espace mémoire. Ces octets supplé- 
mentaires seront simplement ignorés au cours du 
traitement. La routine suivante vous permet de 
localiser un entier en mémoire. 


1000 REM*#TROUVER UN ENTIER EN MEMOIRE#» 

1919 XX=3456 

1020 REMe#FAIRE DE XX UNE VARIABLE EN COURS+* 
1938 XX=XX 

1040 REM*+SAUVEGARDER POINTEUR VERS TABLE VARe+ 
1050 POKE 828, PEEK(71) :POKE 829, PEEK(72) 

1060 REM**ADR DANS TABLE VAR 

1070 ADR=PEEK (828) +2S56+PEEK (829) 

1080 REM+REGARDER ENTREE DANS TABLE VARe# 
1098 LO=PEEK (ADR+1) :HI=PEEK (ADR) 

1100 REMe#CALCULER RESULTAT #» 

1118 SIGNBIT=CHI AND 128)/128 

1120 VAR=LO+2S6# (HI AND 127)-32768#SIGNBIT 
1130 PRINT VAR 


La même technique d'emplacement d’adresse 
peut aussi être utilisée pour une variable en vir- 
gule flottante. Il existe cependant une méthode 
bien plus économique, basée sur le fait que 


lorsque DEF FN sert à définir une fonction de la 


variable X, alors X est utilisé (mais sa valeur reste 
inchangée) chaque fois que FN est appelé. 

Le programme suivant utilise DEF FN pour cal- 
culer l’adresse de la variable BASIC en cours, 
contenue dans les emplacements 71 et 72. Comme 
X est utilisé comme une variable fonction, cela 
assure que l’adresse générée est celle du premier 
octet de X contenu dans la Table de Variables 
BASIC. FN est alors appelé, attribuant cette 
adresse à la variable ADD. Notez que le passage 
d’un zéro (ou d’une autre valeur) via la com- 
mande F\ ne change pas la valeur de X contenue 
dans la Table de Variables, ni l’adresse calculée. 


1000 REM#4TROUVER FPVAR EN MEMOIRE#* 
1010 DEF FNADRCX) =PEEK (71) +256#PEEK (72) 
1028 ADD=FNADR(O):REM RETOURNE TOUJOURS A L' 
ADRESSE DE X 

105@ X=3,14159 

1048 REM*+CONVERTIR BASE 2 EN DECIMAL#* 
1958 POWERTO-2 *(PEEK (ADD) -129) 

1068 SIGN=(-1)*((PEEKCADD+1)AND 128/128) 
1070 REM#PARTIE FRACTION LARGE DE 31 B1TS« 
1980 DI=PEEK(ADD+1) AND 127:REM 7 BITS 
1990 D2=PEEK(ADD+2) :REM 8 BITS 

1108 D3=PEEK (ADD+3) : D4=PEEK (ADD+4 ) 

1110 REMes GULP! ++ 

1129 FRACT=2"(-7)#D142 (-15)#D2+27(-23) 
*D3+2"(-31)#D4 

1138 MANT=L+FRACT 

1148 VAR=SIONePOWERTHO#MANT 

1150 PRINTVAR 


Lorsqu'une instruction de DlMension est exé- 
cutée, de la mémoire est réservée pour le tableau. 
Cela consiste en un en-tête de tableau, plus le 
nombre d’octets nécessaires pour le stockage de 
l’élément. Le format des éléments stockés dans 
un tableau est différent pour chacun des types 
de variables que nous avons vus ici. Considérons 
maintenant l’arithmétique en virgule flottante. 
Lorsque l’interpréteur BASIC effectue des calculs 
en virgule flottante, il stocke tous les résultats 


Variables stockées dans un tableau 
Variables entières 


Octet hi entier Octet lo entier 


Octet 0 Octet 1 


Variables virgule flottante 


Exposant binaire Bit de signe et Mantisse 2 Mantisse 4 
Plus 128  - {Mantisse 1 (7 bits) 


Octet 0 Octet 1 Octet 2 


Variables chaînes 


Nombre de Adresse de début  { Adresse de début 
* caractères de chaine octet lo} de chaîne octet hi 


Octet 0 Octet 1 Octet 2 


intermédiaires dans deux « accumulateurs de 
virgules flottantes ». Ceux-ci sont généralement 
appelés respectivement FAC et ARG, et le format 
utilisé est le même que celui qui sert à stocker 
des variables en mémoire. FAC se trouve aux 
adresses $61 à $65 (97 à 101 décimal), et ARG utilise 
$69 à $6D (105 à 109 décimal). Pour simplifier, nous 
continuerons à utiliser les routines interpréteur 
qui ne font que brasser des nombres entre FAC et 
la mémoire. Les routines interpréteur avec les- 
quelles nous allons nous familiariser dans cette 
partie sont les suivantes : 

e MOVFM (adresse d’appel $BBA) : 

La fonction de cette routine est de charger le 
contenu de FAC à partir d’une variable virgule 
flottante en mémoire. Elle est symboliquement 
représentée par F+ M. Pour l’appeler, charger 
laccumulateur avec l’octet lo de l’adresse de 
début de variable, et le registre Ÿ avec l’octet hi. 
e MOVMF (adresse d’appel $BBD4) : 

Cette routine met le contenu de FAC dans 
sept octets en mémoire, soit M+F. Pour l’appe- 
ler, charger le registre X avec l’octet lo et le 
registre Ÿ avec l’octet hi de la destination de 
l’octet de début de variable en mémoire. 

e FMULT (adresse d’appel $BA28) : 

C’est la routine de multiplication qui multiplie 
le contenu de FAC par une seconde variable en 
mémoire, et stocke le résultat en FAC. Nous pla- 
çons la première variable dans FAC à l’aide de 
MOVFM et pointons la seconde variable en char- 
geant l’accumulateur avec l’octet lo et le registre 
YŸ avec l’octet hi de l’octet de début, avant 
d’appeler cette routine. Finalement, nous pou- 
vons, si nécessaire, remettre le résultat en 
mémoire à l’aide de MOVMF. 

e FADD (adresse d’appel $B867). 

Cette routine d’addition effectue FAC=MEM-FAC. 
Pour l’appeler, nous devons charger l’accumu- 
lateur avec l’octet lo de MEM et le registre Ÿ avec 
lPoctet hi de MEM. 

e FSUB (adresse d’appel $B850) : 

Cette routine de soustraction effectue 
FAC=MEM-FAC. Pour l’appeler, nous chargeons 
l’accumulateur avec l’octet lo de MEM et plaçons 


Octet 4 


Types de variables 
Il'existe trois types de 
variables de tableaux sur 
le C64, chacun d'un 
format différent lorsqu'ils 
sont contenus en octets 
dans la mémoire. Les 
variables entières sont 
contenues dans deux 
octets comme des 
nombres compléments à 
deux. Les nombres en 
virgule flottante 
requièrent cinq octets 
pour contenir la 
mantisse, un bit de signe 
et l’'exposant. Les 
variables chaînes sont 
contenues dans une 
autre zone de mémoire, 
utilisant un octet pour 
chaque caractère dans la 
chaîne. Toutefois, cette 
donnée n'est pas 
contenue dans la table 
de tableaux; par contre, 
trois octets sont utilisés 
pour donner le nombre de 
caractères dans la chaîne 
et l’adresse à 16 bits qui 
pointe sur le début de la 
zone donnée caractères 
de chaîne. 
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Fils de fer partout 

Le programme ROTSUB fait 
tourner une figure en fil 
de fer sur l'écran haute 
résolution du C64. Cette 
figure est définie à l’aide 
de quatre tableaux, dont 
trois servent à contenir 
les coordonnées x, y et z 
de chaque nœud. 

Un quatrième tableau 

— E% — est utilisé pour 
définir si deux nœuds 
particuliers sont ou non 
reliés par une ligne. Dans 
cet exemple, les quatre 
tableaux sont initialisés 
pour produire une figure 
cubique. 


l’octet hi de MEM dans le registre Y. Justement, ce 
sont les routines d’interpréteur que nous allons 
construire dans la première phase de notre pro- 
gramme graphique. Considérons à présent les 
composantes de ce programme. L’idée sous- 
jacente de ce projet est qu’une figure « fil de fer » 
peut être spécifiée par un certain nombre de 
points (ou nœuds) et une matrice de connexion 
des arêtes. Les nœuds ont pour coordonnées 
X (1, Y {1}, Zi} — où | va de 1 à NP (le nombre de 
points). La matrice des connexions d’arêtes est 
EkilJ} — où | et J sont compris entre 1 et NP. 


Nous définissons E%llJ} comme égal à 1 si le 
point | est connecté au point J, et zéro sinon. Ce 
n’est évidemment pas très économique en 
mémoire, parce que nous utilisons deux octets là 
où un seul suffirait. Mais il est plus facile pour 
l’utilisateur de spécifier quels points doivent être 
connectés. De plus, dans les applications pra- 
tiques, NP ne sera pas très grand. Pour commu- 
niquer avec la routine de rotation en langage 
machine à partir de BASIC, nous POKons les 
adresses de base des tableaux commençant par 
l’élément 1. Ainsi, les adresses de X{1}, Y{1}, Z{1) et 
E%(1,1} n’auront pas besoin d’être trouvées. En 
outre, nous suppléerons au langage machine avec 
le nombre de points, NP, et les COS et SIN de 
l’angle de rotation requis autour de l’axe z. 

Nous avons planifié le projet en trois phases. 
D'abord, nous définissons les algorithmes et écri- 
vons un programme test en BASIC. C’est fait par 
le « programme de Rotation de Cube » donné 
ici, qui fait tourner un cube autour de l’axe z et 
projette le résultat sur le plan x, y. Notre objec- 
tif est de convertir le listage BASIC en langage 
machine. Mais nous commençons par la tâche 
la moins ambitieuse consistant à traduire le 
sous-programme à la ligne 1800 de la version en 
langage machine. C’est fait par le programme 
I-ROTSUB, et un programme test pour cette routine 
est donné. 


* : ee Langage machine | | 


, Û 1418 SA=2#1/45 
Programme basic de rotation du cube 1522 202423 ro «/av2ux step sa 
1438 GOSUB1888:REM ROTATE THRU SA 
1448 GOSUB1598:REM INIT/CLEAR SCREEN 
1888 REM*x* BASIC ROTATING CUBE## 1458 REM--PLOT CUBE-- 
1818 IFA=8THENA=1 :LOAD"PLOTSUB.HEX" ,8,1 1468 FORI=1TONP 
1828 IFA=1THENA=2:LOAD"LINESUB.HEX" ,8,1 1478 FORJ=1TOI 
1938 REMX*DIMENSION ARRAYS## 1488 IF ECI,J)=8THEN1518:REM NOT JOINED 
1848 NP=8:REM NUMBER OF POINTS 1498 GOSUB1638:REM COMPUTE PROJECTION 
1958 DIM XCNP) ,Y CNP) ,Z CNP) 1588 GOSUB1678:REM JOIN POINTS 
1868 DIM EDCNP ,NP):REM EDGE CONNECTIONS 1518 NEXT:NEXT 
1978 REMX#INITIALISE ARRAYS## 1529 REM------------- 
1888 REM--CUBE COORDINATE DATA 1538 NEXT A:REM NEXT ANGLE 
1898 DATA 75, 75, 75:REM--------—- /1 1548 REMHHHHHHHHHHHHHHMHNMMMHNM 
1188 DATA -75, 75, 75:REM TOP FOUR /2 1558 REMXMJAIT*Xx 
1118 DATA -75,-75, 75:REM POINTS  /3 1568 GETAS : IFA$=" "THENI 568 
1128 DATA 75,-75, 1578 GOSUBI768:REM RESET SCREEN 
1138 DATA 75, 75,-75:REM----- ——---/5 1588 END 
1148 DATA -75, 75,-75:REM BOT FOUR /é 1598 REMX*SETUP HIRES*%* 
1158 DATA -75,-75,-75:REM POINTS  /7 1688 POKE49488,1:POKE49409 ,1 
1168 DATA 75,-75,-75:REM---------- /8 1618 POKE49418 ,1:SYS49422 
1178 REMX**ROTATE CUBE ABOUT X-AXIS 1/4 1628 RETURN 
1188 FORI=1TONP 1638 REMX**COMPUTE PROJECTION ON HIRES## 
1198 READX(1),YC1),2ZC1) 1648 X1=XC1)+159:Y1%=199-C2(1)+188) 
| 1288 YCI)=YC1)#COS(#/4)-ZC1)#SINC1/4) 1658 X2/=X(J)+159:Y2/%=199-(2(J)+188) 
| 1218 2ZCI)=2CI1)#CO0S(1/4)+YC1)#SINC/4) 1668 RETURN 
1228 NEXT 1678 REMx*LINESUB*%* 
1238 REMY*#ROTATE CUBE ABOUT Z-AXIS 1/4 1688 IF(X1Y=X2%)ANDCY1%=Y27) THENRETURN 
1248 FORI=1TONP 1698 MHI=INT(X1Z/256) :MLO=X12-256#MHI 
1258 XC1)=XC1)#C0S(#/4)-YC1)#SINCN/4) 1788 NHI=INT(X24/256) ëNLO=X2%-256#NHI 
1268 YCI)=Y(1)#COS(1/4)#X CI) #SINCN/4) 1718 POKE49928 ,MLO:POKE49921 ,MHI 
1278 NEXT 1728 POKE49922 ,NLO:POKE49923 ,NHI 
1288 REM--EDGE CONNECTION DATA-- 1738 POKE49924,Y12:POKE49925,Y2% 
1298 E(1,2)=1:REM 1 CONNECTED TO 2 1748 SYS49934:REM LINESUB 
1388 E(2,3)=1:E(3,4)=1:E(4,1)=1 1758 RETURN 
1318 E(5,6)=1:REM BOT SQUARE 1768 REMY**RESET SCREEN*X* 
1328 Eté,7)=1:E(7,8)=1:E(8,5)=5 1778 POKE49488,8:SYS549422 
1338 E(5,1)=1:REM TOP TO BOT EDGES 1788 PRINTCHRS#(147) 
1348 E(é,2)=1:E(7,3)=1:E(8,4)=1 1798 RETURN 
1358 REMY##SYMMETRISE ECI,J) ## 1888 REMY**ROTATE CUBE ABOUT Z-AXIS/SA 
1368 FORI=1TONP : FORJ=1 TONP 1818 FORI=1TONP 
1378 IFECI,J)=1THENE(J,1)=1 1828 XC1)=XC1)#CO0SCSA)-YC I) #SINCSA) 
1388 NEXT :NEXT 1838 YCI)=YCI)#COS( SA) +XC 1) #SINCSA) 
1398 REMHHHHHHHHHHHHHHHHHHHHHH 1848 NEXT 
1488 REMMHPLOT ROTATING CUBEHH 1858 RETURN 
1448 GOSUB1878:REM ROTATE THRU SA 
Programme Test I-ROTSUB 1458 GOSUB1600:REM INIT/CLEAR SCREEN 
1468 REM--PLOT CUBE-- 


Le programme Basic suivant doit être entré 1478 FORI=1TONP 


1488 FORJ=1TOI 
et sauvegardé comme TEST I-ROT. Notez 1498 IF ECI,J)=0THENI1528:REM NOT JOINED 
qu'aucune variable ne doit être définie 1588 GOSUBI648:REM COMPUTE PROJECTION 
entre l’exécution du code de la ligne 1880 D JE por timing tatihé 

, . :NEXT 

à 2000 et l’appel de SYS5053. Sinon, 1808 
, 1548 NEXT A:REM NEXT ANGLE 
adresse de base des tableaux sera à 1558 REMMHHHHHHHHHHHHHHHHHHHHNNN 
incorrectement passée au code machine et 1560 REMeWAIT#* 

« » 1578 GETAS:1FAS=" " THEN1 578 
le programme se « plantera ». 1588 GOSUB1778:REM RESET SCREEN 
1908 REMx»* TEST I-ROT x» 1598 END 
1818 IFA=OTHENA=1 :LOAD"PLOTSUB.HEX" ,8,1 NO NEA PE TUE HIRES NA 
1928 IFA=1THENA=2:LOAD"LINESUB .HEX" , 8,1 1618 POKE49408, 1 :POKE49409, 1 
1838 IFA=2THENA=3:LOAD"I-ROT,HEX",8, 1 1629. POKE4?410 , 1 18Y547422 
1848 REMXxx*DIMENSION ARRAYS#% 1638 RETURN 
18959 NP=8:REM NUMBER OF POINTS 1648 REMx*COMPUTE PROJECTION ON HIRES#x 
1868 DIM XCNP) ,YCNP) ,ZCNP) 1658 X1Z=X(1)+159:Y1%=199-C2(1)+188) 
1878 DIM ED(NP,NP):REM EDGE CONNECTIONS 1668 X2%=X(J)+159:Y24=199-(2(J)+188) 
1988 REM*#INITIALISE ARRAYS#» 1678 RETURN 
1898 REM--CUBE COORDINATE DATA 1688 REM**LINESUB#* 
1198 DATA 75, 75, 75:REM---------- A1 1698 I1F(X14=X2%)ANDCY1%=Y2/) THENRETURN 
1118 DATA -75, 75, 75:REM TOP FOUR /2 1788 MHI=INT(X1%/256) :MLO=X1%-256#MHI 
1128 DATA -75,-75, 75:REM POINTS  /3 1718 NHI=INT(X22/256) ëNLO=X2%-256NHI 
1138 DATA 75,-75, 1728  POKE49928 ,MLO:POKE49921 ,MHI 
1148 DATA 75, 75,-75:REM 1738 POKE49922,NLO:POKE49923 ,NHI 
1158 DATA -?5, 75,-75:REM BOT FOUR /é 1748 POKE49924,Y14:POKE49925,Y2% 
1168 DATA -75,-75,-75:REM POINTS  /7 1758 SYS49934:REM LINESUB 
1178 DATA 75,-75,-75 :REM---------— /8 1768 RETURN 
1188 REMx#ROTATE SPACE ABOUT X-AXIS 1/4 1778 REMY*RESET SCREEN** 
1198 FORI=1TONP 1780 POKE49488,8:SY549422 
1288 READX(I),YC1),2(1) 1798 PRINTCHR# (147) 
1218 YCI)=Y(I)#COS(1/4)-2ZC1)#SINC1/4) 1808 RETURN 
1228 Z(I1)=2(1)#C0S(1/4)+YCI1)#SINC1/4) 1818 REM**ROTATE CUBE ABOUT Z-AXIS/SA 
1238 NEXT 1828 FORI=1TONP 
1248 REMY*ROTATE SPACE ABOUT 2-AXIS 1/4 1838 XCI1)=XC1)#CS-YC 1) #SN 
1258 FORI=1TONP 1848 YCI)=YCI)#CS+X( 1) #SN 
1268 XCI)=XCI1)#C0S(/4)-YCI)D#SINCT/4) 1858 NEXT 
1278 YCI)=Y(1)#C0S(1/4)+XC1)#SINC#/4) 1668 RETURN 
1288 NEXT 1878 REM##ROTATE ABOUT 2-AX1S/SA 
1298 REM--EDGE CONNECTION DATA-- 1888 X(1)=X(1):REM X(1) CURRENT VAR 
1398 E(1,2)=1:REM 1 CONNECTED TO 2 1898 POKE58588 ,PEEK(71):REM XC12LO 
1318 EC2,3)=1:E(3,4)=1:E(4,1)=1 1988 POKES8581 ,PEEK(72) :REM X(1)HI 
1328 E(5,6)=1:REM BOT SQUARE 1919 YC1)=YC1):REM Y(1) CURRENT VAR 
1338 E(é,7)=1:E(7,8)=1:E(8,5)=5 1928 POKES8582,PEEK(71) :REM Y(1)LO 
1348 E(5,1)=1:REM TOP TO BOT EDGES 1938 POKES58503,PEEK(72) :REM Y(1)HI 
1359 E(é,2)=1:E(7,3)=1:E(8,4)=1 1948 POKES8584,NP:REM NUMBER OF POINTS 
1368 REMX*SYMMETRISE EI ,J)x# 1958 CS=CS:REM MAKE CS CURRENT VAR 
1378 FORI=1TONP : FORJ=1 TONP 1968 POKES58589 ,PEEK(71) 
1388 IFECI,J)=1THENE(J, 1)=1 1978 POKE58518 ,PEEK(72) 
1398 NEXT :NEXT 1988 SN=SN:REM MAKE SN CURRENT VAR 
1498 REMHHHHHHHHMHHMMMMNMMIMHH 1998 POKES8511 ,PEEK(71) 
1418 REMMHPLOT ROTATING CUBE#H 2888 POKES58512,PEEK(72) 
1428 SA=2#41/45 :CS=C0S( SA) : SN=S INC SA) 2819 SYS58523 
1438 FOR A=8 TO 241 STEP SA 2828 RETURN 
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Logiciel 


GOBLIN 


Un damier particulier 
Archon peut être défini 
comme étant un jeu 
d'échecs animé. 
Lorsqu'une pièce est 
déplacée vers un autre 
carré sur le damier, elle 
marche, rampe ou vole 
selon sa nature. Dès 
qu'elle atteint le nouveau 
carré, s’il est occupé par 
une des pièces de 
l'opposant, l'écran 
affiche une vue 
rapprochée du carré et 
un combat s'engage. 

Le résultat du combat 
est fonction de l’habilité 
du joueur et des forces 
relatives des pièces 
opposées. 

(CI. Dimension Graphics.) 
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Forces élémentaires 


En combinant certaines caractéristiques des échecs 
et des graphiques à action rapide, Archon, de Ariolasoft, 


met à l’épreuve l’habilité du joueur. 


(GROUND 3) 


Archon est un jeu qui peut fasciner le joueur 
d’échecs tout autant que le plus grand amateur 
de jeu de café. Le jeu est basé sur une lutte oppo- 
sant les forces de la « Lumière » aux forces de 
P« Obscurité ». Le jeu commence par l’affichage 
d’un « damier » stratégique sur lequel les deux 
opposants sont positionnés en lignes et en colon- 
nes, un peu comme sur un jeu d’échecs. Les piè- 
ces portent des noms comme « phoenix » et 
« knight » du côté de la lumière, et « banshees », 
« goblins » et « dragons », du côté de l’obscu- 
rité. Les icônes qui représentent les pièces des 
deux côtés ont diverses forces et possibilités de 
mouvement. Certaines pièces peuvent, par exem- 
ple, « voler », c’est-à-dire qu’elles peuvent sau- 
ter au-dessus des pièces qui se trouvent en face 
d’elles, tandis que d’autres ne peuvent effectuer 
que des mouvements au sol. 

Le damier lui-même est divisé en une matrice 
neuf par neuf. À première vue, il ressemble à un 
damier ordinaire, avec ses carrés colorés alterna- 
tivement en noir et en blanc. Cependant, d’autres 
carrés passent du noir au blanc puis redeviennent 
noirs lors du déroulement du jeu. Cela s’expli- 
que par le fait que les forces de la lumière sont 
plus fortes sur les carrés blancs et que les forces 
de l’obscurité sont plus fortes sur le noir. 

L'objectif d’Arcon est d’occuper les cinq 
« points de puissance »; quatre sont positionnés 
en croix sur les bords du damier, le centre de la 
croix étant situé sur le carré du milieu. Lorsque 


le jeu commence, la stratégie initiale veut que 
vous déplaciez vos icônes depuis les couleurs 
opposées où ils sont vulnérables vers les couleurs 
où ils sont plus puissants. Ainsi, vous pouvez 
ouvrir la ligne du fond afin que les pièces « ter- 
restres » soient libres de se déplacer pour cons- 
truire une barrière de défense contre les forces 
terrestres de l’opposant. 

A ce stade, le jeu ressemble fort à un jeu 
d’échecs sur ordinateur. Cependant, la réelle dif- 
férence apparaît lorsqu’on tente d’occuper un 
carré déjà pris par une icône opposée. Lors du 
déplacement d’une icône vers un carré investi par 
un ennemi, l’écran affiche une vue rapprochée 
du carré au lieu de la prise de la pièce. Les pièces 
ennemies sont positionnées de chaque côté du 
carré, sur lequel on aperçoit une barre qui repré- 
sente la force de l’icône; c’est à ce moment que 
le tir de jeu de café commence. Chaque fois que 
la barre est atteinte par la pièce opposée, la force 
diminue, et lorsqu’elle disparaît complètement, 
l’opposant occupe le carré. Puisque les forces et 
les méthodes d’attaque diffèrent radicalement 
d’une icône à l’autre, certains de ces combats sont 
plus inégaux que d’autres. Par exemple, un dra- 
gon peut cracher des flammes vers un opposant 
à travers le carré, tandis qu’un cavalier doit être 
très près de l’icône d’un ennemi pour utiliser son 
épée. Les combats sont encore compliqués par 
des barrières disposées sur l’écran qui changent 
de position pendant le déroulement du jeu. 

Chaque côté a une icône qui peut remplir le 
rôle d’un ensorceleur : un sorcier pour la lumière, 
une sorcière pour l’obscurité! Les ensorceleurs 
sont identiques, mais ne peuvent être utilisés par 
l’icône qu’une seule fois. L’ensorceleur a le 
pouvoir de définir de nouvelles possibilités de 
mouvements pour une pièce particulière, ou de 
diminuer sa puissance initiale. Ce personnage 
peut servir à attaquer une pièce ennemie et est 
pratique lorsqu’une pièce ennemie attaque l’une 
de vos pièces beaucoup plus faible, ou si vous 
désirez affaiblir les pièces de votre opposant. 
Cependant, même si l’ensorceleur détruit l’icône 
ennemie, il disparaît à la fin du combat. 
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